home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / Software / Deneba Software / Canvas™ 3.5.2 Demo / Canvas™ 3.5.2 Demo.rsrc / PSst_6101 < prev    next >
Encoding:
Text File  |  1994-06-20  |  728 b   |  13 lines
  1. %%DSIDICT:_cv
  2. userdict /_cv known not {userdict /_cv 20 dict put}if
  3. _cv begin
  4. /bdf{bind def}bind def
  5. /isDeviceColor {/currentcolorspace where{pop currentcolorspace 0 get dup /DeviceGray eq exch dup /DeviceRGB eq exch /DeviceCMYK eq or or}{T}ifelse}bdf
  6. /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse
  7. /stg{isDeviceColor {cf ca /cs load setscreen setgray}{pop}ifelse}bdf
  8. /strgb{isDeviceColor {cf ca /cs load setscreen setrgbcolor}{pop pop pop}ifelse}bdf
  9. /stcmyk{isDeviceColor {cf ca /cs load setscreen cvcmyk}{pop pop pop pop}ifelse}bdf
  10. /min1{dup 0 eq{pop 1}if}bdf
  11. currentscreen/cs exch def/ca exch def/cf exch def
  12. end
  13.